home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / apptbk / apptbook.bas next >
BASIC Source File  |  1995-05-09  |  463b  |  27 lines
  1. ' Preferences
  2.  
  3. Type apptPrefs
  4.     timeStart As Variant
  5.     timeEnd As Variant
  6.     timeIncrement As Variant
  7. End Type
  8.  
  9. Global Prefs As apptPrefs
  10.  
  11. ' Constants not included elsewhere
  12.  
  13. Global Const LTGREY = &HC0C0C0
  14.  
  15. Sub Main ()
  16.     
  17.     ' Set up preferences and display the main form.
  18.  
  19.     Prefs.timeStart = TimeValue("8:00am")
  20.     Prefs.timeEnd = TimeValue("6:00pm")
  21.     Prefs.timeIncrement = TimeValue("0:30")
  22.  
  23.     ApptForm.Show
  24.  
  25. End Sub
  26.  
  27.